home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrsub.com / DEMOUNIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-05  |  515 b   |  33 lines
  1. {$O+,F+}
  2. unit DemoUnit;
  3.  
  4. interface
  5.  
  6. procedure DemoProc (OvrName : string);
  7.  
  8. implementation
  9.  
  10. procedure DemoProc (OvrName : string);
  11.  
  12.   {$IFDEF Demo2}
  13.   procedure NestedProcedure;
  14.   begin
  15.     Writeln ('This is the nested procedure');
  16.   end;
  17.   {$ENDIF}
  18.  
  19. begin
  20.   Writeln('Executing DemoProc in ',OvrName);
  21.  
  22.   {$IFDEF Demo1}
  23.   Writeln ('This is code specific to 1.OVR');
  24.   {$ENDIF}
  25.  
  26.   {$IFDEF Demo2}
  27.   Writeln ('This is code specific to 2.OVR');
  28.   NestedProcedure;
  29.   {$ENDIF}
  30. end;
  31.  
  32. end.
  33.